home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Hardcore Visual Basic 5.0 (2nd Edition)
/
Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso
/
Code
/
declare.bas
< prev
next >
Wrap
BASIC Source File
|
1997-06-14
|
4KB
|
123 lines
Attribute VB_Name = "MDeclare"
Option Explicit
' Here's another comment
' These are types and declares described in the book (especially Chapter 2).
' They are in a false conditionals so that the ones in the Windows API type
' library will override them. You can enable these versions to confirm that
' the Declare statements and type library entries are equivalent.
#If fUseDeclares Then
Type LARGE_INTEGER
LowPart As Long
HighPart As Long
End Type
Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type
Type POINTL
x As Long
y As Long
End Type
Type WINDOWPLACEMENT
length As Long
Flags As Long
showCmd As Long
ptMinPosition As POINTL
ptMaxPosition As POINTL
rcNormalPosition As RECT
End Type
Declare Function Polygon Lib "GDI32" (ByVal hDC As Long, _
lpPoints As POINTL, ByVal nCount As Long) As Long
Declare Function SetWindowPlacement Lib "USER32" ( _
ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Declare Function GetWindowPlacement Lib "USER32" ( _
ByVal hWnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Public Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _
lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
Declare Function GetScrollRange Lib "USER32" (ByVal hWnd As Long, _
ByVal nBar As Long, lpMin As Long, lpMax As Long) As Long
#If 0 Then
Declare Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
ByVal lpszClassName As String, ByVal lpszWindow As String) As Long
#Else
Declare Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
Optional ByVal Class As String, _
Optional ByVal Title As String) As Long
#End If
Declare Function WindowFromPointXY Lib "USER32" _
Alias "WindowFromPoint" (ByVal xPoint As Long, _
ByVal yPoint As Long) As Long
Declare Function ChildWindowFromPointXY Lib "USER32" _
Alias "WindowFromPoint" (ByVal hWnd As Long, _
ByVal xPoint As Long, ByVal yPoint As Long) As Long
Declare Function WindowFromPoint Lib "USER32" _
(ByVal xPoint As Long, ByVal yPoint As Long) As Long
Declare Function VBGetObject Lib "GDI32" Alias "GetObjectA" ( _
ByVal hObject As Long, ByVal cbBuffer As Long, _
lpvObject As Any) As Long
Declare Function GetObjectBrush Lib "GDI32" Alias "GetObjectA" ( _
ByVal hBrush As Long, ByVal cbBuffer As Long, _
lpBrush As LOGBRUSH) As Long
Declare Function GetObjectBitmap Lib "GDI32" Alias "GetObjectA" ( _
ByVal hBitmap As Long, ByVal cbBuffer As Long, _
lpBitmap As BITMAP) As Long
Declare Function SendMessageVal Lib "USER32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Any) As Long
Declare Function SendMessageStr Lib "USER32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As String) As Long
Declare Function SendMessage Lib "USER32" Alias "SendMessageA" ( _
ByVal hWnd As Long, ByVal wMsg As Long, _
wParam As Any, lParam As Any) As Long
Declare Function GetWindowText Lib "USER32" Alias "GetWindowTextA" ( _
ByVal hWnd As Long, ByVal lpString As String, _
ByVal nMaxCount As Long) As Long
Declare Function GetWindowRect Lib "USER32" (ByVal hWnd As Long, _
lprc As RECT) As Long
Declare Sub ClientToScreen Lib "USER32" (ByVal hWnd As Long, _
lpPoint As POINTL)
Declare Function FloodFill Lib "GDI32" (ByVal hDC As Long, _
ByVal nXStart As Long, ByVal nYStart As Long, _
ByVal crFill As Long) As Long
Public Declare Function EnumWindows Lib "USER32" ( _
ByVal lpEnumFunc As Long, lParam As Any) As Long
Private Declare Function SearchPath Lib "kernel32.dll" ( _
ByVal lpPath As String, ByVal lpFileName As String, _
ByVal lpExtension As String, ByVal nBufferLenght As Long, _
ByVal lpBuffer As String, lpFilePart As Long) As Long
Declare Function QueryPerformanceCounter Lib "KERNEL32" ( _
lpPerformanceCount As Currency) As Long
Declare Function QueryPerformanceFrequency Lib "KERNEL32" ( _
lpFrequency As Currency) As Long
#End If